program char
	implicit none
	character(len=20):: str
	character(len=40):: str1, str2
	str = "CENT"
	str1 = str//"123"
	str2 = TRIM(str)//"123"
	print *, str
	print *, str1
	print *, str2
end program
